Imports System.Deployment
Imports System.IO
Imports System.IO.IsolatedStorage
Imports System.Net.Mail
Imports System.Collections.ObjectModel
Imports System.Web

<Serializable()> _
Public Class SumarizadorConfig

    Public _pontosMaisFrequentes As Integer
    Public _qtdMaisFrequentes As Integer
    Public _pontosPrimeiras As Integer
    Public _qtdPrimeiras As Integer
    Public _pontosEstaNoTitulo As Integer
    Public _pontosPalavrasDefinicao As Integer
    Public _minPalavrasFrase As Integer
    Public _pontosTermoPesquisa As Integer

    Public Sub New()
        With My.Settings
            _pontosMaisFrequentes = .PontosMaisFrequentes
            _qtdMaisFrequentes = .QtdFrequentes
            _pontosPrimeiras = .PontosPrimeiras
            _qtdPrimeiras = .QtdPalavrasPrimeiras
            _pontosEstaNoTitulo = .PontosEstaNoTitulo
            _pontosPalavrasDefinicao = .PontosPalavraDefinicao
            _minPalavrasFrase = .minPalavrasFrase
            _pontosTermoPesquisa = .pontosTermoPesquisa
        End With
    End Sub

    Public Overrides Function ToString() As String

        Dim buf As New Text.StringBuilder

        With buf
            .AppendFormat("_minPalavrasFrase={0}; ", _minPalavrasFrase)
            .AppendFormat("_pontosEstaNoTitulo={0}; ", _pontosEstaNoTitulo)
            .AppendFormat("_pontosMaisFrequentes={0}; ", _pontosMaisFrequentes)
            .AppendFormat("_pontosPalavrasDefinicao={0}; ", _pontosPalavrasDefinicao)
            .AppendFormat("_pontosPrimeiras={0}; ", _pontosPrimeiras)
            .AppendFormat("_qtdMaisFrequentes={0}; ", _qtdMaisFrequentes)
            .AppendFormat("_qtdPrimeiras={0}; ", _qtdPrimeiras)
            .AppendFormat("_pontosTermoPesquisa={0}; ", _pontosTermoPesquisa)
        End With

        Return buf.ToString
    End Function

End Class
